home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / escher.bas < prev    next >
BASIC Source File  |  1986-04-12  |  1KB  |  58 lines
  1. 100 REM    escher drawing
  2. 110 CLS:RANDOMIZE 14:KEY OFF
  3. 111 SCREEN 1:C=2
  4. 120 FOR J=1 TO 8
  5. 130 FOR I=1 TO 100 STEP 5
  6. 140 IF C=2 THEN C=1 ELSE C=2
  7. 150 LINE(150-I,100-I)-(150+I,100+I),C,B
  8. 160 NEXT I
  9. 170 IF C=2 THEN C=1 ELSE C=2
  10. 180 NEXT J
  11. 190 FOR I=1 TO 100 STEP 5
  12. 200 LINE(150-I,100-I)-(150+I,100+I),0,B
  13. 210 NEXT I
  14. 220 LINE (110,130)-(124,128)
  15. 230 LINE -(135,130)
  16. 240 LINE -(135,150)
  17. 250 LINE -(195,140)
  18. 260 LINE -(195,47)
  19. 270 LINE -(150,40)
  20. 280 LINE -(150,70)
  21. 290 LINE -(90,60)
  22. 300 LINE -(90,143)
  23. 310 LINE -(100,145)
  24. 320 LINE -(100,75)
  25. 330 LINE -(162,84)
  26. 340 LINE -(162,52)
  27. 350 LINE -(185,56)
  28. 360 LINE -(185,137)
  29. 370 LINE -(135,145)
  30. 380 LINE (150,40)-(160,35)
  31. 390 LINE -(205,43)
  32. 400 LINE -(205,149)
  33. 410 LINE -(125,162)
  34. 420 LINE -(125,140)
  35. 430 LINE -(100,145)
  36. 440 LINE (115,143)-(115,159)
  37. 450 LINE -(125,162)
  38. 460 LINE (90,60)-(100,56)
  39. 470 LINE -(150,64)
  40. 480 LINE (110,77)-(110,135)
  41. 490 LINE -(135,130)
  42. 500 LINE (195,47)-(205,44)
  43. 510 LINE (185,137)-(195,140)
  44. 520 LINE (162,84)-(172,78)
  45. 530 LINE -(172,55)
  46. 540 FOR I=1 TO 50
  47. 550 PSET ((RND*320)+1,(RND*199)+1),2
  48. 560 PSET ((RND*320)+1,(RND*199)+1),3
  49. 570 NEXT I
  50. 580 CIRCLE (275,25),15
  51. 590 PAINT (275,25),1,3
  52. 600 CIRCLE (275,25),30,3,,,3/18
  53. 610 CIRCLE (275,25),38,3,,,3/18
  54. 620 CIRCLE (275,25),34,2,,,3/18
  55. 630 LINE (263,18)-(286,22),1,BF
  56. 640 LINE (27,27)-(29,29),3
  57. 650 A$=INKEY$:IF A$<>" " THEN GOTO 650
  58.